home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / DIRED-X.ELC < prev    next >
Text File  |  1993-03-28  |  37KB  |  436 lines
  1. ;;; compiled by jwz@thalidomide on Sun Dec 13 16:55:48 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-x.el
  3. ;;; emacs version 19.4 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defconst dired-extra-version (substring "!Revision: 1.191 !" 11 -2) "\
  14. Id: dired-x.el,v 1.191 1992/05/14 11:41:54 sk RelBeta ")
  15. (byte-code "└┴!ê┬├!ç" [require dired provide dired-extra] 2)
  16. (defvar dired-mark-keys '("Z") "\
  17. *List of keys (strings) that insert themselves as file markers.")
  18. (defvar dired-dangerous-shell-command "^rm" "\
  19. *Regexp for dangerous shell commands that should never be the default.")
  20. (byte-code "└    ┬├#ê└    ─┼#ê└    ╞╟#ê└    ╚╔#ê└    ╩╦#ê└    ╠═#ê└    ╬╧#ê└    ╨╤#ê└    ╥╙#ê└    ╘╒#ê└    ╓╫#ê└    ╪┘#ê└    ┌█#ê└    ▄▌#ê└    ▐▀#ê└    αß#ê└    Γπ#ê└    Σσ#ê└    µτ#êΦΘ*\"ç" [define-key dired-mode-map "V" dired-vm "(" dired-set-marker-char ")" dired-restore-marker-char "I" dired-do-insert-subdir "═" dired-do-unmark "∩" dired-omit-toggle "¿" dired-mark-sexp "," dired-mark-rcs-files "í" dired-smart-shell-command "ª" dired-smart-background-shell-command "T" dired-do-toggle "w" dired-copy-filename-as-kill "τ" dired-goto-file "╟" dired-goto-subdir "&" dired-do-background-shell-command "A" dired-do-byte-compile-and-load "F" dired-do-find-file "S" dired-do-relsymlink "%S" dired-do-relsymlink-regexp mapcar #[(x) "└    \n├#ç" [define-key dired-mode-map x dired-mark-with-this-char] 4] dired-mark-keys] 4)
  21. (fset 'dired-add-hook #[(hook-var function) "└    !¼ä    ┬Lê    J<½ç    J@├=½å    ëJCLê     J>?¡å         JBLç" [boundp hook-var nil lambda function] 3 "\
  22. Add a function to a hook.
  23. First argument HOOK-VAR (a symbol) is the name of a hook, second
  24. argument FUNCTION is the function to add.
  25. Returns nil if FUNCTION was already present in HOOK-VAR, else new
  26. value of HOOK-VAR." "SAdd to hook-var (symbol): \naAdd which function to %s? "])
  27. (byte-code "└┴┬\"ê└├─\"ç" [dired-add-hook dired-mode-hook dired-extra-startup dired-after-readin-hook dired-omit-expunge] 3)
  28. (defvar dired-default-marker dired-marker-char "\
  29. *The value of `dired-marker-char' in effect before dired-x was
  30. loaded and the value which is restored if the marker stack underflows.
  31. This is usually the asterisk `*'.")
  32. (fset 'dired-extra-startup #[nil "└ ê┴ ê┬ ç" [dired-hack-local-variables dired-omit-startup dired-marker-stack-startup] 1 "\
  33. Automatically put on dired-mode-hook to get extra dired features:
  34. \\<dired-mode-map>
  35.   \\[dired-vm]    -- VM on folder
  36.   \\[dired-rmail]    -- Rmail on folder
  37.   \\[dired-do-insert-subdir]    -- insert all marked subdirs
  38.   \\[dired-do-find-file]    -- visit all marked files simultaneously
  39.   \\[dired-set-marker-char], \\[dired-restore-marker-char]    -- change and display dired-marker-char dynamically.
  40.   \\[dired-omit-toggle]    -- toggle omitting of files
  41.   \\[dired-mark-sexp]    -- mark by lisp expression
  42.   \\[dired-do-unmark]    -- replace existing marker with another.
  43.   \\[dired-mark-rcs-files]    -- mark all RCS controlled files
  44.   \\[dired-mark-files-compilation-buffer]    -- mark compilation files
  45.   \\[dired-copy-filename-as-kill]    -- copy the file or subdir names into the kill ring.
  46.          You can feed it to other commands using \\[yank].
  47.  
  48. For more features, see variables
  49.  
  50.   dired-omit-files
  51.   dired-omit-extenstions
  52.   dired-dangerous-shell-command
  53.   dired-mark-keys
  54.   dired-local-variables-file
  55.   dired-find-subdir
  56.   dired-guess-have-gnutar
  57.   dired-auto-shell-command-alist
  58.  
  59. See also functions
  60.  
  61.   dired-sort-on-size
  62.   dired-do-relsymlink
  63.   dired-flag-extension
  64.   dired-virtual
  65.   dired-jump-back
  66.   dired-jump-back-other-window
  67. " nil])
  68. (byte-code "└┴!¼ï┬├K!½à─┼╞\"ê└┴!½Å╟╚╔\n#ê╦╠Mê═╬Mê└ç" [fboundp read-with-history-in subrp read-from-minibuffer load "gmhist" t put dired-shell-command-history dangerous dired-dangerous-shell-command dired-read-regexp #[(prompt &optional initial) "¼ç┴┬ #¬Å─┬┼╞#ê─┬┼┴┬ ##ëç" [initial read-with-history-in regexp-history prompt put default nil dired-flagging-regexp] 7] dired-read-dir-and-switches #[(str) "¡ä┴┬ \"─┼╞╟\"╔\n╔%Dƒç" [current-prefix-arg read-string "Dired listing switches: " dired-listing-switches read-file-name-with-history-in file-history format "Dired %s(directory): " str nil default-directory] 7]] 4)
  69. (fset 'dired-mark-with-this-char #[(arg) "┬ !)ç" [last-command-char dired-marker-char dired-mark-subdir-or-file arg] 2 "\
  70. Mark the current file or subdir with the last key you pressed to invoke
  71. this command.  Else like \\[dired-mark-subdir-or-file] command." "p"])
  72. (defvar dired-marker-stack nil "\
  73. List of previously used dired marker characters.")
  74. (defvar dired-marker-string "" "\
  75. String version of `dired-marker-stack'.")
  76. (fset 'dired-current-marker-string #[nil "└┴┬├ !┼#Pëç" [" " mapconcat char-to-string reverse dired-marker-stack "" dired-marker-string] 5 "\
  77. Computes and returns `dired-marker-string'."])
  78. (fset 'dired-marker-stack-startup #[nil "└┴!ê└┬!ê└├!ê├ ₧«à┼ Bëç" [make-local-variable dired-marker-char dired-del-marker dired-marker-stack minor-mode-alist (dired-marker-stack dired-marker-string)] 2])
  79. (fset 'dired-set-marker-char #[(c) "    B┬ ê─┼ !ê╞╟ \"ç" [c dired-marker-stack dired-current-marker-string dired-marker-char set-buffer-modified-p buffer-modified-p message "New marker is %c"] 3 "\
  80. Set the marker character to something else.
  81. Use \\[dired-restore-marker-char] to restore the previous value." "cNew marker character: "])
  82. (fset 'dired-restore-marker-char #[nil "Aë@┬ ê├─ !ê    ¼é╞╟    \"ç" [dired-marker-stack dired-marker-char dired-current-marker-string set-buffer-modified-p buffer-modified-p dired-default-marker message "Marker is %c"] 4 "\
  83. Restore the marker character to its previous value.
  84. Uses `dired-default-marker' if the marker stack is empty." nil])
  85. (fset 'dired-sort-on-size #[nil "└┴!êebê┬ ê├yê─┼╞╟╚$ç" [require sort dired-goto-next-file 0 sort-subr t forward-line end-of-line dired-get-file-size] 5 "\
  86. Sorts a dired listing on file size.
  87. If your ls cannot sort on size, this is useful as `dired-after-readin-hook':
  88.     (setq dired-after-readin-hook 'dired-sort-on-size)"])
  89. (fset 'dired-get-file-size #[nil "└┴!ê┬öbê├uê─è┼┬!ê`)`{!ç" [re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)" 1 -1 string-to-int backward-word] 3])
  90. (defvar dired-vm-read-only-folders nil "\
  91. *If t, \\[dired-vm] will visit all folders read-only.
  92. If neither nil nor t, e.g. the symbol `if-file-read-only', only
  93. files not writable by you are visited read-only.
  94.  
  95. Read-only folders only work in VM 5, not in VM 4.")
  96. (fset 'dired-vm #[(&optional read-only) "└ ┴  ½ç┼\n╞\"ꬃ╞=½ç┼\n╞\"ê¬Æ¼å┼\n!ê¬ê┼\n╚\n!?\"ê╔╩! L*ç" [dired-current-directory dired-get-filename fil dir read-only vm-visit-folder t dired-vm-read-only-folders file-writable-p make-local-variable vm-folder-directory] 4 "\
  97. Run VM on this file.
  98. With prefix arg, visit folder read-only (this requires at least VM 5).
  99. See also variable `dired-vm-read-only-folders'." "P"])
  100. (fset 'dired-rmail #[nil "└┴ !ç" [rmail dired-get-filename] 2 "\
  101. Run RMAIL on this file." nil])
  102. (fset 'dired-do-insert-subdir #[nil "└ «â┴┬!ë¡ö─ @!½çè┼ @!ê) Aë¼m╞)ç" [dired-mark-get-files error "No files marked." files file-directory-p dired-maybe-insert-subdir nil] 3 "\
  103. Insert all marked subdirectories in situ that are not yet inserted.
  104. Non-directories are silently ignored." nil])
  105. (fset 'dired-mark-extension #[(extension &optional marker-char) "<¼âC┴┬├─┼╞#╟R\"ç" [extension dired-mark-files-regexp "." "\\(" mapconcat regexp-quote "\\|" "\\)$" marker-char] 7 "\
  106. Mark all files with a certain extension for use in later commands.
  107. A `.' is not automatically prepended to the string entered." "sMarking extension: \nP"])
  108. (fset 'dired-flag-extension #[(extension) "└    \n\"ç" [dired-mark-extension extension dired-del-marker] 3 "\
  109. In dired, flag all files with a certain extension for deletion.
  110. A `.' is *not* automatically prepended to the string entered." "sFlagging extension: "])
  111. (defvar patch-unclean-extensions '(".rej" ".orig") "\
  112. List of extensions of dispensable files created by the `patch' program.")
  113. (defvar tex-unclean-extensions '(".toc" ".log" ".aux") "\
  114. List of extensions of dispensable files created by TeX.")
  115. (defvar latex-unclean-extensions '(".idx" ".lof" ".lot" ".glo") "\
  116. List of extensions of dispensable files created by LaTeX.")
  117. (defvar bibtex-unclean-extensions '(".blg" ".bbl") "\
  118. List of extensions of dispensable files created by BibTeX.")
  119. (defvar texinfo-unclean-extensions '(".cp" ".cps" ".fn" ".fns" ".ky" ".kys" ".pg" ".pgs" ".tp" ".tps" ".vr" ".vrs") "\
  120. List of extensions of dispensable files created by texinfo.")
  121. (fset 'dired-clean-patch #[nil "└    !ç" [dired-flag-extension patch-unclean-extensions] 2 "\
  122. Flag dispensable files created by patch for deletion.
  123. See variable `patch-unclean-extensions'." nil])
  124. (fset 'dired-clean-tex #[nil "└┴\n $!ç" [dired-flag-extension append texinfo-unclean-extensions latex-unclean-extensions bibtex-unclean-extensions tex-unclean-extensions] 6 "\
  125. Flag dispensable files created by tex etc. for deletion.
  126. See variable `texinfo-unclean-extensions', `latex-unclean-extensions',
  127. `bibtex-unclean-extensions' and `texinfo-unclean-extensions'." nil])
  128. (fset 'dired-do-unmark #[(unmarker) "┴ÿ½é┬├─O┼ ╞èebê╔╞╩#¡å╦!ê¬r+ç" [unmarker "" " " 0 1 dired-marker-regexp nil buffer-read-only regexp re-search-forward t replace-match] 4 "\
  129. Unmark marked files by replacing the marker with another character.
  130. The new character defaults to a space, effectively unmarking them." "sChange marker to: "])
  131. (fset 'dired-jump-back #[(&optional other-window) "ë½à┬    !¬ü ╞=½ö╟ ½à╔ ê¬â╩ ê╦ !¬ö½å╠ !ê¬ä═ !ê    ¡â╦    !*ç" [buffer-file-name file file-name-directory default-directory dir major-mode dired-mode dired-current-directory other-window dired-up-directory-other-window dired-up-directory dired-really-goto-file dired-other-window dired] 3 "\
  132. Jump back to dired:
  133. If in a file, dired the current directory and move to file's line.
  134. If in dired already, pop up a level and goto old directory's line.
  135. In case the proper dired file line cannot be found, refresh the dired
  136.   buffer and try again." nil])
  137. (fset 'dired-jump-back-other-window #[nil "└┴!ç" [dired-jump-back t] 2 "\
  138. Like \\[dired-jump-back], but to other window." nil])
  139. (fset 'dired-really-goto-file #[(file) "└    !«ë┬├    !!ê└    !ç" [dired-goto-file file dired-insert-subdir file-name-directory] 3])
  140. (fset 'dired-up-directory-other-window #[nil "└ ┬├    !!┼├    !!«î╞ !«ç╟ !ê┼    !*ç" [dired-current-directory dir file-name-directory directory-file-name up dired-goto-file dired-goto-subdir dired-other-window] 3 "\
  141. Like `dired-up-directory', but in other window." nil])
  142. (fset 'dired-mark-rcs-files #[(&optional unflag-p) "└┴\n½â├¬ü─\"ê\n½â┼¬é╟ëëëë    \n  ═╬═╧\"\"ê G ½ñ @╤╥O  A è╙ !½å╘╒!ê¬ç \nB\n)¬X\n¼ô└╓╫!\n½â╪¬ü┘$ꬪ\nG    ┌█\n\"ê└▄╫!    Z\n½â╪¬ü┘    \n&ê\n.ç" [message "%sarking RCS controlled files..." unflag-p "Unm" "M" 32 dired-marker-char nil total count failures wf rcs-files mapcar #[(dir) "└┴\n!!├Ü«ñ─┼\n╞╟#╚├\n\"    ╩    !¡ï╦╠┼═    !╬╟#\")#ëç" [file-name-nondirectory directory-file-name dir "RCS" append directory-files t ",v$" expand-file-name rcs-dir file-directory-p mapcar #[(x) "└    \n\"ç" [expand-file-name x dir] 3] file-name-as-directory nil rcs-files] 8] car dired-subdir-alist 0 -2 dired-goto-file dired-mark-file 1 "%d RCS file%s %smarked." dired-plural-s "un" "" dired-log-summary "RCS working file not found %s" "%d RCS file%s: %d %smarked - %d not found %s."] 8 "\
  143. Mark all files that are under RCS control.
  144. With prefix argument, unflag all those files.
  145. Mentions RCS files for which a working file was not found in this buffer.
  146. Type \\[dired-why] to see them again." "P"])
  147. (fset 'dired-do-toggle #[nil "èebê└m?¡ñ┬ ¼¢├ !¼û┼╞``Tg╟=½å╟D¬ä╟D$ê╔yê¬X*ç" [nil buffer-read-only dired-between-files looking-at dired-re-dot apply subst-char-in-region 32 dired-marker-char 1] 6 "\
  148. Toggle marks.
  149. That is, currently marked files become unmarked and vice versa.
  150. Files marked with other flags (such as `D') are not affected.
  151. `.' and `..' are never toggled.
  152. As always, hidden subdirs are not affected." nil])
  153. (fset 'copy-string-as-kill #[(string) "    BëG\nV½ç\nS    ¢├íê    ëç" [string kill-ring kill-ring-max nil kill-ring-yank-pointer] 3 "\
  154. Save STRING as if killed in a buffer."])
  155. (defvar dired-marked-files nil "\
  156. List of filenames from last `dired-copy-filename-as-kill' call.")
  157. (fset 'dired-copy-filename-as-kill #[(&optional arg) "└    ¼ä┬ «º├─    ½Ü┼    !╞U½ä╟ ¬Æ    ¿½å╟╚    \"¬ê╟╔!¬â╟╚!ë\n╦#!ê╠═@\"ç" [copy-string-as-kill arg dired-get-subdir mapconcat identity prefix-numeric-value 0 dired-mark-get-files no-dir t dired-marked-files " " message "%s" kill-ring] 6 "\
  158. Copy names of marked (or next ARG) files into the kill ring.
  159. The names are separated by a space.
  160. With a zero prefix arg, use the complete pathname of each marked file.
  161. With a raw (just \\[universal-argument]) prefix arg, use the relative pathname of each marked file.
  162.  
  163. If on a subdir headerline and no prefix arg given, use subdirname instead.
  164.  
  165. You can then feed the file name to other commands with \\[yank].
  166.  
  167. The list of names is also stored onto the variable
  168. `dired-marked-files' for use, e.g., in an `\\[eval-expression]' command." "P"])
  169. (fset 'dired-do-background-shell-command #[(&optional arg) "└    ┬\"ç" [dired-do-shell-command arg t] 3 "\
  170. Like \\[dired-do-shell-command], but starts command in background.
  171. Note that you can type input to the command in its buffer.
  172. This requires background.el from the comint package to work." "P"])
  173. (fset 'dired-clean-up-after-deletion #[(fn) "è└    !½â┬ ê)├    !ë½É┼╞╟╚    !\"!½åè╔ !ê))╩    !╦ë ¡ñ┼╞═╬ G!╚    !#!¡ò ¡æè╔ @!ê) Aë ¼p╦*ç" [dired-goto-subdir fn dired-kill-subdir get-file-buffer buf y-or-n-p format "Kill buffer of %s, too? " file-name-nondirectory kill-buffer dired-buffers-for-top-dir nil buf-list "Kill dired buffer%s of %s, too? " dired-plural-s] 7])
  174. (defvar dired-omit-files-p nil "\
  175. *If non-nil, \"uninteresting\" files are not listed (buffer-local).
  176. Use \\[dired-omit-toggle] to toggle its value.
  177. Uninteresting files are those whose filenames match regexp `dired-omit-files',
  178. plus those ending with extensions in `dired-omit-extensions'.")
  179. (defvar dired-omit-files "^#\\|\\.$" "\
  180. *Filenames matching this regexp will not be displayed (buffer-local).
  181. This only has effect when `dired-omit-files-p' is t.
  182. See also `dired-omit-extensions'.")
  183. (defvar dired-omit-extensions (append completion-ignored-extensions latex-unclean-extensions bibtex-unclean-extensions texinfo-unclean-extensions) "\
  184. *If non-nil, a list of extensions (strings) to omit from Dired
  185. listings.  Defaults to the elements of
  186. `completion-ignored-extensions', `latex-unclean-extensions',
  187. `bibtex-unclean-extensions' and `texinfo-unclean-extensions'.")
  188. (defvar dired-omit-localp 'no-dir "\
  189. The LOCALP argument dired-omit-expunge passes to dired-get-filename.
  190. If it is 'no-dir, omitting is much faster, but you can only match
  191. against the basename of the file.  Set it to nil if you need to match the
  192. whole pathname.")
  193. (defvar dired-omit-marker-char 15 "\
  194. Temporary marker used by by dired-omit.
  195. Should never be used as marker by the user or other packages.")
  196. (fset 'dired-omit-startup #[nil "└┴!ê┴\n₧«å├\n─\"ëç" [make-local-variable dired-omit-files-p minor-mode-alist append ((dired-omit-files-p " Omit"))] 3])
  197. (fset 'dired-omit-toggle #[(&optional flag) "½É    ½à    ?ëç┬├ ─ë$ç    ?ë¼â╞ ç╟ ç" [flag dired-omit-files-p dired-mark-unmarked-files dired-omit-regexp nil dired-omit-localp revert-buffer dired-omit-expunge] 6 "\
  198. Toggle between displaying and omitting files matching `dired-omit-files'.
  199. With an arg, and if omitting was off, don't toggle and just mark the
  200.   files but don't actually omit them.
  201. With an arg, and if omitting was on, turn it off but don't refresh the buffer." "P"])
  202. (byte-code "└┴!¼é┬┬ç" [boundp dired-omit-silent nil] 2)
  203. (fset 'dired-omit-expunge #[(&optional regexp) "¡╗    «é┬ ├ë╞ÿ¼¼    ¼ä╩╦!ê╠├ë$½Ä╬├    ½â╞¬ü╧\"¬ê    ¼ä╩╨!ê) *ç" [dired-omit-files-p regexp dired-omit-regexp nil count omit-re "" dired-omit-marker-char dired-marker-char dired-omit-silent message "Omitting..." dired-mark-unmarked-files dired-omit-localp dired-do-kill "Omitted %d line%s." "(Nothing to omit)"] 6 "\
  204. Erases all unmarked files matching REGEXP.
  205. Does nothing if global variable `dired-omit-files-p' is nil.
  206. If REGEXP is nil or not specified, uses `dired-omit-files', and also omits
  207.   filenames ending in `dired-omit-extensions'.
  208. If REGEXP is the empty string, this function is a no-op.
  209.  
  210. This functions works by temporarily binding `dired-marker-char' to
  211. `dired-omit-marker-char' and calling `dired-do-kill'." "sOmit files (regexp): "])
  212. (fset 'dired-omit-regexp #[nil "½å┴┬Q¬ü├½å ½â┼¬ü├ ½ï╞┴╟╚ ┼#╔R¬ü├Qç" [dired-omit-files "\\(" "\\)" "" dired-omit-extensions "\\|" "." mapconcat regexp-quote "\\)$"] 8])
  213. (fset 'dired-mark-unmarked-files #[(regexp msg &optional unflag-p localp) "½â┴¬ü\n├ëè╞½å╚╔\"êebêm¼º╩╦!½¥╠╬\"ë¡å╨\")½è╥╙!ê\ncê T╙yê¬V½₧╚╘ ╒ !\n┴=½â╓¬ü╫\n=½â┘¬ü┌&ê) ╞V¡ü +ç" [unflag-p 32 dired-marker-char nil count buffer-read-only 0 msg message "Marking %ss..." looking-at " " dired-get-filename localp t fn string-match regexp delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 9 "\
  214. Marks unmarked files matching REGEXP, displaying MSG.
  215. REGEXP is matched against the complete pathname.
  216. Does not re-mark files which already have a mark.
  217. With prefix argument, unflag all those files.
  218. Second optional argument LOCALP is as in `dired-get-filename'." "P"])
  219. (byte-code "└┴Mê┬├!¼à├─KMê─└Mç" [dired-omit-new-add-entry #[(filename &optional marker-char) "½▓┴ ë├ÿ¼ƒ─\n╞=½ä¬æ╚=½å╔!¬å╩ \"\"¼ê╠\"¬ü╚)ç╠\"ç" [dired-omit-files-p dired-omit-regexp omit-re "" string-match dired-omit-localp no-dir filename t dired-make-relative dired-make-absolute directory dired-omit-old-add-entry marker-char] 6] fboundp dired-omit-old-add-entry dired-add-entry] 2)
  220. (fset 'dired-mark-sexp #[(predicate &optional unflag-p) "└┴\n\"ê ½â─¬ü╞ëëëëëëëëë    \n  ╞ëè╙╘╒\n\"½ê└╓╘╒\n\"\"êebêm¼£è╫ ¡â╪\n!)½î┘┌!êcêT┌yê¬a╘╒\n\"½ó└█╘╒\n\"▄!─=½â▌¬ü▐=½âα¬üß&ê)╙V¡é.ç" [message "%s" predicate unflag-p 32 dired-marker-char nil sym name time size gid uid nlink mode s inode count buffer-read-only 0 format "'%s file" "Marking %ss..." dired-parse-ls eval delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 11 "\
  221. Mark files for which PREDICATE returns non-nil.
  222. With a prefix arg, unflag those files instead.
  223.  
  224. PREDICATE is a lisp expression that can refer to the following symbols:
  225.  
  226.     inode  [integer] the inode of the file (only for ls -i output)
  227.     s      [integer] the size of the file for ls -s output
  228.                  (ususally in blocks or, with -k, in KByte)
  229.     mode   [string]  file permission bits, e.g. \"-rw-r--r--\"
  230.     nlink  [integer] number of links to file
  231.     uid    [string]  owner
  232.     gid    [string]  group  (If the gid is not displayed by ls,
  233.                  this will still be set (to the same as uid))
  234.     size   [integer] file size in bytes
  235.     time   [string]  the time that ls displays, e.g. \"Feb 12 14:17\"
  236.     name   [string]  the name of the file
  237.     sym    [string]  if file is a symbolic link, the linked-to name, else \"\"
  238.  
  239. For example, use
  240.  
  241.         (equal 0 size)
  242.  
  243. to mark all zero length files." "xMark if (lisp expr): \nP"])
  244. (byte-code "└┴!½à┴┬├\"ê─┼Mê╞╟Mç" [fboundp gmhist-make-magic dired-mark-sexp eval-expression-history dired-parse-ls #[nil "└ àá┴┬├╟yê╚uê╔ !½ÿ╟òbê╩╦ö╦ò{! ╩╚ö╚ò{!¬å┴ ┴``\\{uê╧p!`╦vê`{╥╙!ê╦öbê╘uê╩è╒╦!ê`ë)`{!bê╒╦!êè╦vê`)`{╦ö└ S{`┘┌!«ü`{╔▄!½ï▌uê`┴ê`{¬ü▐+┌ç" [dired-move-to-filename nil 10 "\\s *\\([0-9]*\\)\\s *\\([0-9]*\\) ?" dired-re-inode-size mode-len pos 0 2 looking-at string-to-int 1 inode s mode read nlink uid re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)" -1 backward-word size gid time dired-move-to-end-of-filename t name " -> " 4 "" sym] 3] dired-mark-these-files #[(file-list from) "└┴\n\"ê G─ ┼ë     ½¬╩ @\" Aè╦!½å╠═!ê¬Å╬!B╧╨\"ê)¬S½Å╤└╥G    \n%!¬è└╙    ╘    !\n$,ç" [message "Marking files %s..." from file-list dired-current-directory nil failures file cur-dir total dired-make-absolute dired-goto-file dired-mark-file 1 dired-make-relative dired-log "Cannot mark this file (not found): %s\n" dired-log-summary "Failed to mark %d of %d files %s %s" "Marked %d file%s %s." dired-plural-s] 7]] 3)
  245. (fset 'dired-mark-files-from-other-dired-buffer #[(buf) "└    !p=½ä┬├!ê    ;¼ä─    !è    qê╞=¼à┬╟    \"ê╚╔!)\n╦\n╠    P\")ç" [get-buffer buf error "Other dired buffer is the same" buffer-name major-mode dired-mode "%s is not a dired buffer" dired-mark-get-files no-dir other-files dired-mark-these-files "from buffer "] 4 "\
  246. Mark files that are marked in the other Dired buffer.
  247. I.e, mark those files in this Dired buffer that have the same
  248. non-directory part as the marked files in the Dired buffer in the other window." (byte-code "└┴ !Cç" [window-buffer next-window] 2)])
  249. (fset 'dired-mark-files-compilation-buffer #[(&optional regexp buf) "└ë G─U½ä¬é╞¼â╚;¼å╔!è╩!«à╦╠\"qêebê└ë╧ └╞#½»    ½ê╨ö«å─ö¬é╨ö    ½ê╨ò«å─ò¬é╤ö{ܼU\nB¬J+╥\n╙P\"*ç" [nil user-regexp-p other-files regexp 0 compilation-error-regexp t buf "*compilation*" buffer-name get-buffer error "No %s buffer!" new-file file re-search-forward 1 2 dired-mark-these-files "from buffer "] 4 "\
  250. Mark the files mentioned in the `*compilation*' buffer.
  251. With an arg, you may specify the other buffer and your own regexp
  252. instead of `compilation-error-regexp'.
  253. Use `^.+$' (the default with a prefix arg) to match complete lines or
  254. an empty string for `compilation-error-regexp'.
  255. In conjunction with narrowing the other buffer you can mark an
  256. arbitrary list of files, one per line, with this command." (byte-code "¡Ü┴┬├\"─┼╞╟ !ëp=½ä╔ ¬é)\"Dç" [current-prefix-arg read-string "Use compilation regexp: " "^.+$" read-buffer "Use buffer: " window-buffer next-window next-buffer other-buffer] 6)])
  257. (defvar dired-keep-marker-relsymlink 83 "\
  258. See variable `dired-keep-marker-move'.")
  259. (fset 'dired-make-symbolic-link #[(name1 name2 &optional ok-if-already-exists) "└    !┬    !├    !\n«ü \n½å ¼â┼½à¿½ù ½ö¿½ê╟╚╔    \"!¼ç╩╦╠    B\"ê═ ½ä╧    !ê╨╤╥╙    %ë¡ç╩╦╥B\",ç" [expand-file-name name2 file-symlink-p file-exists-p file-or-symlink-exists 1 ok-if-already-exists yes-or-no-p format "File %s already exists; symlink anyway? " signal file-error "File already exists" nil err delete-file dired-check-process "SymLink" "ln" "-s" name1] 7 nil "FSymlink to (string): \nFMake symbolic link to `%s': \np"])
  260. (fset 'dired-make-relative-symlink #[(file1 file2 &optional ok-if-already-exists) "└ëëë┴└╚    !    ╚\n!\n    G\nG└ ╠═     #ë ½ñ Të ½£ ^W½ö    ┴ O\n┴ Oÿ½à ¬Q\n    ┴ O     └O)\n═ÿ½å    ¬╣\n └O┴ë╠═#ë½îTT¬h┴V½ìS╤P¬m+╥╙!#.ç" [nil 0 sub index len2 len1 name2 name1 expand-file-name file1 file2 next string-match "/" count start tem "../" dired-make-symbolic-link directory-file-name ok-if-already-exists] 6 "\
  261. Three arguments: FILE1 FILE2 &optional OK-IF-ALREADY-EXISTS
  262. Make a symbolic link (pointing to FILE1) in FILE2.
  263. The link is relative (if possible), for example
  264.  
  265.     \"/vol/tex/bin/foo\" \"/vol/local/bin/foo\"
  266.  
  267. results in
  268.  
  269.     \"../../tex/bin/foo\" \"/vol/local/bin/foo\"
  270. " "FRelSymLink: \nFRelSymLink %s: \np"])
  271. (fset 'dired-do-relsymlink #[(&optional arg) "└┴┬├ %ç" [dired-do-create-files relsymlink dired-make-relative-symlink "RelSymLink" arg dired-keep-marker-relsymlink] 6 "\
  272. Symlink all marked (or next ARG) files into a directory,
  273. or make a symbolic link to the current file.
  274. This creates relative symbolic links like
  275.  
  276.     foo -> ../bar/foo
  277.  
  278. not absolute ones like
  279.  
  280.     foo -> /ugly/path/that/may/change/any/day/bar/foo" "P"])
  281. (fset 'dired-do-relsymlink-regexp #[(regexp newname &optional whole-path) "└┴┬├ &ç" [dired-do-create-files-regexp dired-make-relative-symlink "RelSymLink" nil regexp newname whole-path dired-keep-marker-relsymlink] 8 "\
  282. RelSymlink all marked files containing REGEXP to NEWNAME.
  283. See functions `dired-rename-regexp' and `dired-do-relsymlink'
  284.   for more info." (dired-mark-read-regexp "RelSymLink")])
  285. (fset 'virtual-dired 'dired-virtual)
  286. (fset 'dired-virtual #[(dirname &optional switches) "ebê└┴!¼å┬ed├#ê ¼é╞╟ !!ëèebê╚yê└╔!¡ç╩ò╦ê`{)ë ½å╞ \")ebê└!¼ä╬!ê╧ «é\"ê╥╘╓╫!╦Lê╪ êebê┘ !ç" [looking-at "  " indent-region 2 dirname default-directory expand-file-name file-name-as-directory 1 "^  wildcard " 0 nil wildcard dired-subdir-regexp dired-insert-headerline dired-mode switches dired-listing-switches "Virtual Dired" mode-name dired-virtual-revert revert-buffer-function make-local-variable dired-subdir-alist dired-build-subdir-alist dired-initial-position] 5 "\
  287. Put this buffer into Virtual Dired mode.
  288.  
  289. In Virtual Dired mode, all commands that do not actually consult the
  290. filesystem will work.
  291.  
  292. This is useful if you want to peruse and move around in an ls -lR
  293. output file, for example one you got from an ftp server.  With
  294. ange-ftp, you can even dired a directory containing an ls-lR file,
  295. visit that file and turn on virtual dired mode.  But don't try to save
  296. this file, as dired-virtual indents the listing and thus changes the
  297. buffer.
  298.  
  299. If you have save a Dired buffer in a file you can use \\[dired-virtual] to
  300. resume it in a later session.
  301.  
  302. Type \\<dired-mode-map>\\[revert-buffer] in the
  303. Virtual Dired buffer and answer `y' to convert the virtual to a real
  304. dired buffer again.  You don't have to do this, though: you can relist
  305. single subdirs using \\[dired-do-redisplay].
  306. " (byte-code "└┴┬ \"Cç" [read-string "Virtual Dired directory: " dired-virtual-guess-dir] 3)])
  307. (byte-code "└┴Mê┬├Mç" [dired-virtual-guess-dir #[nil "└┴ebê─ !½î\nö\nò{╞!)¬ò╟ ╚╔#½ì╩╦╞\nö\nò{!!!¬ü╚*ç" ["^\\(  \\)?\\([^ \n]*\\)\\(:\\)[\n]" 2 subexpr regexp looking-at dir file-name-as-directory re-search-forward nil t file-name-directory directory-file-name] 5] dired-virtual-revert #[(&optional arg noconfirm) "└┴!¼ä┬├!ç─╞╚ ç" [y-or-n-p "Cannot revert a Virtual Dired buffer - switch to Real Dired mode? " error "Cannot revert a Virtual Dired buffer." "Dired" mode-name dired-revert revert-buffer-function revert-buffer] 2]] 2)
  308. (fset 'dired-virtual-mode #[nil "└┴ !ç" [dired-virtual dired-virtual-guess-dir] 2 "\
  309. Put current buffer into virtual dired mode (see `dired-virtual').
  310. Useful on `buffer-contents-mode-alist' (which see) with the regexp
  311.  
  312.     \"^  \\(/[^ /]+\\)/?+:$\"
  313.  
  314. to put saved dired buffers automatically into virtual dired mode.
  315.  
  316. Also useful for `auto-mode-alist' (which see) like this:
  317.  
  318.   (setq auto-mode-alist (cons '(\"[^/]\\.dired$\" . dired-virtual-mode)
  319.                   auto-mode-alist))
  320. " nil])
  321. (defvar dired-find-subdir nil "\
  322. *If non-nil, Dired does not make a new buffer for a directory if it
  323. can be found (perhaps as subdir) in some existing Dired buffer.
  324.  
  325. If there are several Dired buffers for a directory, the most recently
  326. used is chosen.
  327.  
  328. Dired avoids switching to the current buffer, so that if you have
  329. a normal and a wildcard buffer for the same directory, C-x d RET will
  330. toggle between those two.")
  331. (byte-code "└┴!¼à┴┬KMê┬├Mç" [fboundp dired-old-find-buffer-nocreate dired-find-buffer-nocreate #[(dirname) "½ñp┬ !ƒ     >¡â Ü╟     \"╚ ╔\"@«à¡ü    +ç╩ !ç" [dired-find-subdir cur-buf dired-buffers-for-dir-exact dirname buffers dired-directory cur-buf-matches delq sort dired-x-buffer-more-recently-used-p dired-old-find-buffer-nocreate] 3]] 2)
  332. (fset 'dired-x-buffer-more-recently-used-p #[(buffer1 buffer2) "    Ü?¡₧┬├  ½ö @Üë¼î     @ܼå Aë¼l*ç" [buffer1 buffer2 nil buffer-list list more-recent] 3 "\
  333. Return t if BUFFER1 is more recently used than BUFFER2."])
  334. (byte-code "└┴Mê┬├Mê─┼Mç" [dired-buffers-for-dir-exact #[(dir) "┴ë ½╡ @ A\nA╞!½ƒèqê)ܼì╔èqê\n)\"½ï B¬à╦\n\")¬H +ç" [dired-buffers nil elt result alist buf buffer-name dir dired-directory assoc dired-subdir-alist delq] 3] dired-buffers-for-top-dir #[(dir) "└    !\n├뽫@A A╚!½ô    èqê    )ܽîB¬à╩ \n\")¬N+ç" [file-name-as-directory dir dired-buffers nil elt result alist buf buffer-name default-directory delq] 3] dired-initial-position #[(dirname) "└ê    ½ä┬ !ê ¡é┼ ç" [nil dired-find-subdir dired-goto-subdir dirname dired-trivial-filenames dired-goto-next-nontrivial-file] 2]] 2)
  335. (defconst default-directory-alist '((dired-mode if (fboundp 'dired-current-directory) (dired-current-directory) default-directory)) "\
  336. Alist of major modes and their opinion on default-directory, as a
  337. lisp expression to evaluate.  A resulting value of nil is ignored in
  338. favor of default-directory.")
  339. (fset 'default-directory #[nil "└    \n₧A!«ü ç" [eval major-mode default-directory-alist default-directory] 3 "\
  340. Usage like variable `default-directory', but knows about the special
  341. cases in variable `default-directory-alist' (which see)."])
  342. (fset 'find-file-read-filename-at-point #[(prompt) "└┴!½û\n½ì├ ┴╞  ╟ %)ç┴╞ \"ç╚╞ \"ç" [fboundp gmhist-read-file-name current-prefix-arg filename-at-point fn prompt default-directory nil read-file-name] 6])
  343. (fset 'filename-at-point #[nil "└┴ëëè┬yê`)è┴ê`)èm¼É╔╩!½ï╦┴xêo¼ä╠═!ê╬╧╨Q╤g!\"½£┴xê`╬╥╤h!\"½àS┴wê¬ä╙╘!ê╒`{!.ç" [".a-zA-Z0-9---_/:$" nil 0 eol bol filename end start filename-chars looking-at "[]     \n[{}()]" " \n    ({[]})" backward-char 1 string-match "[" "]" char-to-string "[/~]" error "No file found around point!" expand-file-name] 6 "\
  344. Get the filename closest to point, but don't change your position.
  345. Has a preference for looking backward when not directly on a symbol."])
  346. (fset 'find-this-file #[(fn) "└┴\n!!ç" [find-file expand-file-name fn] 3 "\
  347. Edit file FILENAME.
  348. Switch to a buffer visiting file FILENAME, creating one if none already exists.
  349.  
  350. Interactively, with a prefix arg, calls `filename-at-point'.
  351. Useful to edit the file mentioned in the buffer you are editing, or to
  352. test if that file exists: use minibuffer completion after snatching the
  353. name or part of it." (byte-code "└┴!Cç" [find-file-read-filename-at-point "Find file: "] 2)])
  354. (fset 'find-this-file-other-window #[(fn) "└┴\n!!ç" [find-file-other-window expand-file-name fn] 3 "\
  355. Edit file FILENAME in other window.
  356. Switch to a buffer visiting file FILENAME, creating one if none already exists.
  357.  
  358. Interactively, with a prefix arg, call `filename-at-point'.
  359. Useful to edit the file mentioned in the buffer you are editing, or to
  360. test if that file exists: use minibuffer completion after snatching the
  361. name or part of it." (byte-code "└┴!Cç" [find-file-read-filename-at-point "Find file: "] 2)])
  362. (fset 'dired-smart-shell-command #[(cmd &optional insert) "└ ┴\n \")ç" [default-directory shell-command cmd insert] 3 "\
  363. Like function `shell-command', but in the current Tree Dired directory." "sShell command: \nP"])
  364. (byte-code "└┴!½à┴┬├\"ê└ç" [fboundp gmhist-make-magic dired-smart-shell-command shell-history] 3)
  365. (fset 'dired-smart-background-shell-command #[(cmd) "└┴┬ ├ ┼░!ç" [shell-command "cd " default-directory "; " cmd " &"] 6 "\
  366. Run a shell command in the background.
  367. Like function `background' but in the current Tree Dired directory." "s%% "])
  368. (byte-code "└┴!½à┴┬├\"ê└ç" [fboundp gmhist-make-magic dired-smart-background-shell-command shell-history] 3)
  369. (defvar dired-local-variables-file ".dired" "\
  370. If non-nil, filename for local variables for Dired.
  371. If Dired finds a file with that name in the current directory, it will
  372. temporarily insert it into the dired buffer and run `hack-local-variables'.
  373.  
  374. Type \\[info] and and `g' `(emacs)File Variables' `RET' for more info on
  375. local variables.")
  376. (fset 'dired-hack-local-variables #[nil "¡¿┴!¡ú┬ëèdbê┼ ╞cê╟!ê)╔ ê) d|ê ┬ëô*ç" [dired-local-variables-file file-exists-p nil opoint buffer-read-only point-marker " \n" insert-file-contents buffer-file-name hack-local-variables] 3 "\
  377. Parse, and bind or evaluate as appropriate, any local variables
  378. for current dired buffer.
  379. See variable `dired-local-variables-file'."])
  380. (defvar dired-guess-have-gnutar nil "\
  381. *If non-nil, name of the GNU tar executable (e.g. \"tar\" or \"gnutar\").
  382. GNU tar's `z' switch is used for compressed tar files.
  383. If you don't have GNU tar, set this to nil: a pipe using `zcat' is then used.")
  384. (defvar dired-auto-shell-command-alist-default (byte-code "└    ½à    ┬P¬ü├D─    ½à    ┼P¬â╞░D╟╚╔╩╦╠═╬╧╨╥=½â╙¬ü╘╒╓╫╪┘┌»ç" ["\\.tar$" dired-guess-have-gnutar " xvf" "tar xvf" "\\.tar\\.Z$" " zxvf" "zcat * | tar xvf -" ("\\.shar.Z$" "zcat * | unshar") ("\\.uu$" "uudecode") ("\\.hqx$" "mcvert") ("\\.sh$" "sh") ("\\.xbm$" "bitmap") ("\\.gp$" "gnuplot") ("\\.gif$" "xv") ("\\.fig$" "xfig") (".tex$" "latex" "tex") ("\\.texi\\(nfo\\)?$" "makeinfo" "texi2dvi") window-system x ("\\.dvi$" "xtex" "dvips") ("\\.dvi$" "dvips") ("\\.Z$" "uncompress") ("\\.zoo$" "zoo x//") ("\\.zip$" "unzip") ("\\.lzh$" "lharc x") ("\\.arc$" "arc x") ("\\.shar$" "unshar")] 19) "\
  385. Default for variable `dired-auto-shell-command-alist' (which see).
  386. Set this to nil to turn off shell command guessing.")
  387. (defvar dired-auto-shell-command-alist nil "\
  388. *If non-nil, an alist of file regexps and their suggested commands.
  389. Dired shell commands will look up the name of a file in this list
  390. and suggest the matching command as default.
  391.  
  392. Each element of this list looks like
  393.  
  394.     (REGEXP COMMAND...)
  395.  
  396. where each COMMAND can either be a string or a lisp expression that
  397. evaluates to a string.  If several COMMANDs are given, the first one
  398. will be the default and minibuffer completion will use the given set.
  399.  
  400. These rules take precedence over the predefined rules in the variable
  401. `dired-auto-shell-command-alist-default' (to which they are prepended).
  402.  
  403. You can set this variable in your ~/.emacs.  For example, to add
  404. rules for `.foo' and `.bar' files, write
  405.  
  406. (setq dired-auto-shell-command-alist
  407.       (list (list \"\\\\.foo$\" \"FOO-COMMAND\");; fixed rule
  408.              ;; possibly more rules ...
  409.          (list \"\\\\.bar$\";; rule with condition test
  410.            '(if condition
  411.              \"BAR-COMMAND-1\"
  412.                \"BAR-COMMAND-2\"))))
  413. ")
  414. (byte-code "½å┴\n\"¬ü\n├─Mê┼╞Mç" [dired-auto-shell-command-alist append dired-auto-shell-command-alist-default dired-guess-default #[(files) "A«é    ??¡╝@    ─── ½Ü @ë@ A╚\n\"½lA─ë¼fA¼ç╔@!¬à╩╔\"-ç" [files dired-auto-shell-command-alist file alist nil elt re cmds string-match eval mapcar] 4] dired-guess-shell-command #[(prompt files) "└    !┬ëë├╔╩!¼Æ╦ <½à@¬é\"¬╥¼ç═╬ \"¬╟╧╬!¼â┬<½û@ ╨╤G\"P ¬àC╥╬╚#ê╙\"╘Ä═╬ \"┬)-ç" [dired-guess-default files nil t failed val old-history default-list default featurep gmhist read-string prompt read-with-history-in dired-shell-command-history boundp format "{%d guesses} " put append ((byte-code "\n¼è     óÜ¼ä     B─ç" [old-history dired-shell-command-history failed val nil] 2))] 5]] 3)
  415. (fset 'dired-read-shell-command #[(prompt arg files) "└┴┬ ─┼╟ \"\" &ç" [dired-mark-pop-up nil shell files dired-guess-shell-command format prompt dired-mark-prompt arg] 10 "\
  416. Read a dired shell command using generic minibuffer history.
  417. This command tries to guess a command from the filename(s)
  418. from the variable `dired-auto-shell-command-alist' (which see)."])
  419. (fset 'dired-do-byte-compile-and-load #[(&optional arg) "└┴\n├─$ç" [dired-mark-map-check dired-byte-compile-and-load arg byte-compile-and-load t] 5 "\
  420. Byte compile marked and load (or next ARG) Emacs lisp files.
  421. This requires jwz@lucid.com's new optimizing byte compiler." "P"])
  422. (fset 'dired-byte-compile-and-load #[nil "└┬ ─ !╞ \"¼è╚╔ \"ê╩ !¬Æè╦ !ê)╠!ê└yê═!ê└+ç" [nil buffer-read-only dired-get-filename from-file byte-compile-dest-file new-file string-match elisp-source-extention-re dired-log "Attempt to compile non-elisp file %s\n" dired-make-relative byte-compile-and-load-file dired-remove-file dired-add-file] 3])
  423. (fset 'dired-do-find-file #[(&optional arg) "└┴┬ \"!ç" [simultaneous-find-file dired-mark-get-files nil arg] 4 "\
  424. Visit all marked files at once, and display them simultaneously.
  425. See also function `simultaneous-find-file'.
  426. If you want to keep the dired buffer displayed, type \\[split-window-vertically] first.
  427. If you want just the marked files displayed and nothing else, type \\[delete-other-windows] first." "P"])
  428. (fset 'simultaneous-find-file #[(file-list) "└     GÑ \nX¼ä─┼!ê╞    @!ê    Aë¡ô╟╚╔\n\"!ê╞    @!ê    Aë¼n╔)ç" [window-height file-list size window-min-height error "Too many files to visit simultaneously" find-file select-window split-window nil] 5 "\
  429. Visit all files in FILE-LIST and display them simultaneously.
  430.  
  431. The current window is split across all files in FILE-LIST, as evenly
  432. as possible.  Remaining lines go to the bottommost window.
  433.  
  434. The number of files that can be displayed this way is restricted by
  435. the height of the current window and the variable `window-min-height'."])
  436.